IF exists(SELECT * FROM dbo.sysobjects WHERE name='WEB_dossierDubbeltekst' AND xtype='P') 
BEGIN
	DROP PROCEDURE WEB_dossierDubbeltekst
END
GO

CREATE     procedure WEB_dossierDubbeltekst
(@hoofdNr int,@iNr char(7))
as
set nocount on
select @hoofdNr as hoofdNr,0 as volgNr,'<codes>' as tekst
union
select @hoofdNr,1, '<dubbeltekst id="' + convert(varchar(20),volgNr) + '" ' +
	'zichtbaar="' + case when (zichtbaar=1) then '+' else '-' end + '">' +
	'<categorie>' + isNull(categorie,'')  + '</categorie>' +
	 '<subcategorie>' + isNull(subcategorie,'') +  '</subcategorie>' +
	 '<kleur>' + isNull(kleur,'') + '</kleur>' +
	 '<klas>' + isNull(klas,'') + '</klas>' +
	 '<naam>' + isNull(naam,'') + '</naam>' +
	 '<iNr>' + iNr + '</iNr>' +
	 '<datum>' + isNull(dbo.verlengDatum(convert(varchar(10),datum,111)),'') + '</datum>' +
	 '<auteur>' + isNull(auteur,'') + '</auteur>' +
	 '<omschrijving>' + isNull(leerlingen.dbo.WEB_XML(omschrijving),'') + '</omschrijving>' +
	 '<remediering>' + isNull(leerlingen.dbo.WEB_XML(remediering),'') + '</remediering></dubbeltekst>' 
from dossierDubbeltekst
where iNr = @iNr
	and zichtbaar=1
union
select @hoofdNr,2, '</codes>'
order by volgNr